home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / PULLDOWN.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  3KB  |  77 lines
  1. Program Pull_Tech_For_ViSiON;
  2.  
  3. Uses CRT, FastTTT5,DOS,WinTTT5,MenuTTT5,PullTTT5;
  4.  
  5. (* Pulldown Menus For ViSiON; Use'n Techo-Jock's ToolKit 5.0 *)
  6.  
  7. var
  8.    Main_Choice,Choice,Error : integer;
  9.    ScanTop, ScanBot : byte;
  10.    M1, MM : Menu_record;
  11.    Ch : char;
  12.  
  13. Procedure Which_Chat;
  14. begin
  15.     Menu_Set(M1);
  16.     With M1 do
  17.     begin
  18.         Heading1 := 'ViSiON v0.82 Online SysOp Chat Commands';
  19.         Heading2 := 'Chat Commands';
  20.         Topic[1] := '   Regular Color - Split Screen';
  21.         Topic[2] := '   Multi-Colored - Split Screen';
  22.         Topic[3] := '   Regular Color - Veritcal Chat';
  23.         Topic[4] := '   Mulit-Colored - Vertical Chat';
  24.         Topic[5] := '   Regular Color - One Line Chat';
  25.         Topic[6] := '   Quit Chat Menu';
  26.         TotalPicks := 6;
  27.         PicksPerLine := 1;            {one column of choices}
  28.         Addprefix := 1;               {add function key prefixes}
  29.         TopleftXY[1] := 0;            {system will center menu}
  30.         TopleftXY[2] := 3;            {Y coordinate}
  31.         Boxtype := 5;                 {fancy box}
  32.         If ColorScreen then
  33.         begin
  34.             Colors[1] := white;           {hi forground}
  35.             Colors[2] := magenta;            {hi background}
  36.             Colors[3] := lightgray;             {lo foreground}
  37.             Colors[4] := blue;       {lo background}
  38.             Colors[5] := lightgray;            {box color}
  39.         end
  40.         else
  41.         begin
  42.             Colors[1] := white;           {hi forground}
  43.             Colors[2] := black;            {hi background}
  44.             Colors[3] := black;             {lo foreground}
  45.             Colors[4] := lightgray;       {lo background}
  46.             Colors[5] := white;            {box color}
  47.         end;
  48.         AllowEsc := false;            {inactivate the escape key}
  49.         Margins := 5;
  50. end;  {with M1 do}
  51. end; {Define_Menu1}
  52.  
  53. Var X,Y:Byte;
  54.     Done:Boolean;
  55. Begin
  56. Activate_Visible_Screen;
  57.     SlideRestoreSCreen(2,Down);
  58.     Clrscr;
  59.     FillScreen(1,1,80,24,white,blue,chr(176));
  60.     Findcursor(X,Y,ScanTop,ScanBot);
  61.     OffCursor;
  62.     Main_Choice := 1;
  63.     Done:=False;
  64.     repeat
  65.      Which_Chat;
  66.      DisplayMenu(M1,false,Main_Choice,Error);
  67.      Case Main_Choice of
  68.      1 :Begin WriteLn('Wow!'); End;
  69.      2 :Begin WriteLn('Whoa'); End;
  70.      3 :Begin WriteLn('Ohhh'); End;
  71.      4 :Begin WriteLn('aka'); End;
  72.      5 :Begin WriteLn('alala'); End;
  73.      6 :Done:=True;
  74.      end;  {case}
  75. until Done;
  76. OnCursor;
  77. End.